Puoi creare dinamicamente i nuovi controlli con il comando New e inserirli in una collection:
codice:
Dim lab As Label
Dim i As Integer
Dim coll As New List(Of Label)

For i = 1 To 30
    lab = New Label
    lab.Text = i.ToString

    'imposta le altre proprietà della label
    '...

    lab.Visible = True

    'aggiunge la label alla collection
    coll.Add(lab)
Next