How to change the ● to ◆ in the given code by using MeshStyle?

I use this code

ListPlot[Table[{n, Sin[2 n^2]}, {n, 1, 10}], 
  Frame -> True, 
  Joined -> True, 
  PlotStyle -> Directive[Blue, LineColor -> LightRed], 
  Mesh -> All, 
  PlotRange -> All, 
  Axes -> None]

and I get

Is it possible to change the ● to ◆ using MeshStyle?

I can get the desired result by

ListPlot[Table[{n, Sin[2 n^2]}, {n, 1, 10}], 
 Frame -> True, 
 Joined -> True, 
 PlotStyle -> Directive[Blue, LineColor -> LightRed], 
 PlotMarkers -> {"◆"}, 
 PlotRange -> All, 
 Axes -> None]

but this does not help me, since in the domain I need to plot, some undesirable space arises between plot markers and the joined line.

ChartElementData["FilledMarkers"] // Row

filleddiamond = ChartElementData["FilledMarkers"][[3, 1, 1]]; 

ListPlot[Table[{n, Sin[2 n^2]}, {n, 1, 10}], Frame -> True, Joined -> True, 
 PlotStyle -> Directive[Blue, LineColor -> LightRed], 
 PlotMarkers -> {Graphics @ filleddiamond, .05}, 
 PlotRange -> All, Axes -> None]

ListPlot[Table[{n, Sin[2 n^2]}, {n, 1, 10}], Frame -> True, 
  Joined -> True, PlotStyle -> Directive[Blue, LineColor -> LightRed],
   Mesh -> 20, PlotRange -> All, 
  Axes -> None] /. {Point[
    pts_] :> (Inset["◆", #] & /@ pts)}