codice:
For Each L as String in TextBox1.Lines
   i +=1
   Labels(i).Text = L
Next
Dove Labels è un array (potresti usare anche una lista tipizzata) con le Label, se ne hai molte.