The code you offered had an error ([] where it didn't belong) and when run only entered the "New Content" subsection and not the image.

Okay, the following worked, although the graphic size was rather small (I'll need to figure out the sizing). I guess I need to wrap larger code in Module or something...

nb = CreateDocument[];
GeoGraphics[GeoMarker[Here]] // 
 NotebookWrite[nb, 
   Cell[BoxData[MakeBoxes[#, StandardForm]], "Output"]] &

The actual application is as follows (the token obscured for obvious reasons):

nb = CreateDocument[];
data = {};
offset = 0;
checkins = 
  Import["https://api.foursquare.com/v2/users/self/checkins?limit=250&\
v=20231001&oauth_token=XXXXXXXXXXXXXX", "RawJSON"][["response", 
    "checkins", "items"]];
While[Length[checkins] > 0,
      Do[
   	PrependTo[checkins[[i]], 
    "timestamp" -> FromUnixTime[checkins[[i, "createdAt"]]]];
   	AppendTo[data, checkins[[i]]]
   	, {i, Length[checkins]}
   ];
  offset += 250;
  checkins = 
   Import["https://api.foursquare.com/v2/users/self/checkins?offset=" \
<> ToString[offset] <> "&limit=250&v=20231001&oauth_token=XXXXXXXX", 
     "RawJSON"][["response", "checkins", "items"]];	
  ];
GeoListPlot[Table[
   GeoPosition[{data[[i, "venue", "location", "lat"]], 
     data[[i, "venue", "location", "lng"]]}]
   , {i, Length@data}], 
  GeoBackground -> {"VectorClassic", "StreetMapLabelsOnly"}, 
  ImageSize -> Large] // 
 NotebookWrite[nb, 
   Cell[BoxData[MakeBoxes[#, StandardForm]], "Output"]] &