Puedes hacerlo así, comprobando el nombre de los ComboBox:
Código:
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" And Left(ctrl.Name, 13) = "cmbfrecuencia" Then
With ctrl
.AddItem "Anual"
.AddItem "Semestral"
.AddItem "Bimestral"
.AddItem "Trimestral"
.AddItem "Cuatrimestral"
.AddItem "Mensual"
End With
End If
Next ctrl