Gyanítom, beraktál egy nem checkbox elemet is a keretbe, és az lesz a hiba oka.

Egy kis segítség a Debugoláshoz:

Módosítsd a kódot így (új rész kiemelve):

Sub ExclusiveCheckboxes()

'declare an object as the form field
Dim objField As FormField

'for each checkbox (form field) in this current fame set
'(or range of form fields), set all the values to false
'and loop through to make sure they are all set to false (unchecked)
For Each objField In Selection.Frames(1).Range.FormFields
Debug.Print objField.Name & " - " & Now()
objField.CheckBox.Value = False
Next objField

'now set the currently selected checkbox value to true
Selection.FormFields(1).CheckBox.Value = True

End Sub

Ez semmi mást nem tesz, csak kiírja az Immediate Window-ba a ciklusban átnézett objektumok nevét, meg az időt.
Ezután próbáld ki az űrlapot, és kattints egy checkbox-ra. Amikor a hibaüzenetet látod, várj egy pár másodpercig, mielőtt az OK-ra kattintatnál.
Ezután Alt+F11-el menj át a VB editor ablakba, és a View menüből válaszd ki az Immediate Window-t. Abban elvileg fel vannak sorolva az objektumnevek és időpont párosok. Elképzelésem szerint a hibát okozó objektum egyértelműen felismerhető lesz abból, hogy közte és a következő objektum között lényegesen hosszabb idő telt el, mint a többi esetben.

Egyébként az értékelő algoritmusod hibás, mert 50, 60, 70 és 80 pontokra nem ad értékelést.