Why a goto loop and alias? You can make your script a little better as such:

on *:text:@yt *:#:{
  set -u1 %name.y $2
  set -u2 %channel #
  if $sock(poper) { sockclose poper }
  sockopen poper www.youtube.com 80
  sockmark poper $sock(poper).wserr $sock(poper).wsmsg
}
on *:sockopen:poper: {
  if (!$sockerr) { 
    sockwrite -n poper GET $+(/,%name.y) HTTP/1.0
    sockwrite -n poper Host: www.youtube.com
    sockwrite -n poper $crlf
  }
  else { 
    echo -st Socket Error: $sock(poper).mark
    sockclose poper
  }
}
on *:sockread:poper: {
  if ($sockerr) {
    echo -st Socket Error: $sock(poper).mark
    sockclose poper
  }
  else { 
    var %Youtube | sockread %Youtube
    if ($regex(%Youtube,/<div style="float:right;" id="profile_show_viewed_count">(.+)</div>/)) { set %youtube.a $regml(1) }
    if ($regex(%Youtube,/<div style="float:right;" id="profile_show_first_name">(.+)</div>/)) { set %youtube.b $regml(1) }
    if ($regex(%Youtube,/<div style="float:right;" id="profile_show_last_login">(.+)</div>/)) { set %youtube.c $regml(1) }
    if ($regex(%Youtube,/<div style="float:right;" id="profile_show_subscriber_count">(.+)</div>/)) { set %youtube.d $regml(1) }
  } 
}
on *:sockclose:poper:{
  if %youtube.a { 
    msg %channel  %name.y   Name:  %youtube.b  Views:  %youtube.a  Lasted logged in:  %youtube.c   Subscribers:  %youtube.d 
    unset %youtube.*
  }
  else { msg %channel Error 404:user name does not exsist }
}