You can extract information using patterns:
gr = GeoGraphics[{Annotation[Point[GeoPosition[{10, 200}]], {2, 4, 6},
"Mouse"],
Annotation[Point[GeoPosition[{10.1, 200}]], {3, 5, 7},
"Mouse"]}];
Cases[gr, Annotation[pt_Point, info_, ___] :> {pt, info}, All]
