You're using the wrong event. The following works for me.
Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
If ContentControl.Tag = "Checkbox1" Then
ActiveDocument.Bookmarks("Test1").Range.Font.Hidden = ContentControl.Checked
End If
End Sub