I think I managed the code. Here it is:

Sub MathObjReFormat()
Dim MathObj As Object
For Each MathObj In ActiveDocument.OMaths
With MathObj
.ConvertToNormalText
.Range.Font.Name = "Times New Roman"
.Range.Font.Size = 12
.Range.Font.Italic = True
End With
Next
End Sub