You can use the CallByName function to refer to objects using their name as text.
___
For x = 52 To 57
With CallByName(Me, "Label" & x, VbGet)
CallByName(Me, "Label" & (x + 1), VbGet).Left = .Left + .Width
End With
Next x
___
However, recommended method is to use control arrays...