Hope this helps

Dim Ctrl As Control

Sub ChangeLabelsTo8()
For Each Ctrl In UserForm1.Controls
If Left(Ctrl.Name, 5) = "Label" Then Ctrl.Caption = "8"
Next
End Sub